﻿Public Class InicializarParejas
    Private _CargadorBool(23) As Boolean
    Private _Cargador(23) As Integer
    Public ReadOnly Property Cargador As Integer()
        Get
            Return _Cargador
        End Get
    End Property

    Public Sub New()
        Dim aleatorio As New Random
        Dim num As Integer
        For i As Integer = 0 To _Cargador.Length - 1
            Do
                num = aleatorio.Next(_Cargador.Length)
            Loop While _CargadorBool(num) = True
            _CargadorBool(num) = True
            _Cargador(i) = num
        Next
    End Sub
End Class
